home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / itsear1a / module1.bas < prev    next >
BASIC Source File  |  1999-10-17  |  715b  |  32 lines
  1. Attribute VB_Name = "Module1"
  2. Sub Main()
  3. Dim MeinIE
  4. Eingabe = Form1.Text1.Text
  5. Set MeinIE = CreateObject("InternetExplorer.Application")
  6.  
  7. Do While MeinIE.Busy
  8. Loop
  9.  
  10. MeinIE.Visible = 0
  11.  
  12. MeinIE.Navigate "http://www.chemie.fu-berlin.de/cgi-bin/acronym?" & Eingabe
  13.  
  14. Do While MeinIE.ReadyState <> 4
  15. Loop
  16.  
  17. Text_von_IE = MeinIE.Document.Body.innerText
  18. MyPos = InStr(Text_von_IE, "Results for")
  19.  
  20. If Len(Text_von_IE) = MyPos + 11 + Len(Eingabe) Then
  21.   Form1.Text2.Text = ("Keine Suchergebnise gefunden!")
  22.   Form1.Show
  23. Else
  24.   Rechter_Teil = Right(Text_von_IE, Len(Text_von_IE) - MyPos - 11 - Len(Eingabe))
  25.   Form1.Text2.Text = Rechter_Teil
  26.   Form1.Show
  27. End If
  28.  
  29. MeinIE.Quit
  30.             
  31. End Sub
  32.